﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim Runtxt,rs,sql,jhname,jhlogo,tid,jb,t1,t2,ty,qb
	Runtxt=qingtian.RunStr
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select  * FROM admin where id=1"
		rs.open sql,cn,1,1
                if not (rs.bof and rs.eof)  then
jhname=rs("jhname")
jhlogo=rs("jhlogo")
tid=rs("tid")
jb=rs("jb")
qb=rs("qb")
ty=rs("ty")
t1=left(rs("t1"),2)
t2=left(rs("t2"),2)
                end if
		rs.Close
		Set rs = Nothing
%>
	<card title="修改系统配置"><p align="left">

	游戏名称：<br/>
	<input emptyok="true"  name="jhname<%=Runtxt%>" value="<%=qingtian.FormatEdit(jhname)%>" type="text"/><br/>
	游戏logo：<br/>
	<input emptyok="true"  name="jhlogo<%=Runtxt%>" value="<%=qingtian.FormatEdit(jhlogo)%>" type="text"/><br/>
	管理员社区id号：<br/>
	<input emptyok="true"  name="tid<%=Runtxt%>" value="<%=tid%>" type="text"/><br/>
	社区币换银子(银子换社区币)费率（填数字如填5，即扣除百分之5的手续费）：<br/>
	<input emptyok="true"  name="ty<%=Runtxt%>" value="<%=ty%>" type="text"/><br/>
	社区币换银子比率（填数字如填10，即10个金币换一两银子）：<br/>
	<input emptyok="true"  name="jb<%=Runtxt%>" value="<%=jb%>" type="text"/><br/>
	银子换社区币比率（填数字如填10，即1个银子换一10金币）：<br/>
	<input emptyok="true"  name="qb<%=Runtxt%>" value="<%=qb%>" type="text"/><br/>
	恶魔广场开启时间（填数字如填21，即21点开启恶魔广场）：<br/>
	<input emptyok="true"  name="t1<%=Runtxt%>" value="<%=t1%>" type="text"/><br/>
	恶魔广场关闭时间（填数字如填23，即23点关闭恶魔广场）：<br/>
	<input emptyok="true"  name="t2<%=Runtxt%>" value="<%=t2%>" type="text"/><br/>
	<anchor>确定提交
    	<go href="editconjib.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="jhname" value="$(jhname<%=Runtxt%>)"/>
        <postfield name="jhlogo" value="$(jhlogo<%=Runtxt%>)"/>
        <postfield name="tid" value="$(tid<%=Runtxt%>)"/>
        <postfield name="jb" value="$(jb<%=Runtxt%>)"/>
        <postfield name="t1" value="$(t1<%=Runtxt%>)"/>
        <postfield name="t2" value="$(t2<%=Runtxt%>)"/>
        <postfield name="ty" value="$(ty<%=Runtxt%>)"/>
        <postfield name="qb" value="$(qb<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>
-------------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim name,rs,sql,errs,jhname,jhlogo,tid,jb,t1,t2,ty,qb
jhname=Request.form("jhname")
jhlogo=Request.form("jhlogo")
tid=clng(Request.form("tid"))
jb=clng(Request.form("jb"))
t1=clng(Request.form("t1"))
ty=clng(Request.form("ty"))
qb=clng(Request.form("qb"))
if t1<10 then 
t1="0"&t1
end if
t2=clng(Request.form("t2"))
if t2<10 then 
t2="0"&t2
end if
		errs=""
		if jhname="" or jhlogo="" or ty="" or qb="" or tid="" or jb="" or t1="" or t2="" then errs=errs & "关键名称不能为空<br/>"
t1=t1&":00:00"
t2=t2&":00:00"
	%>
	<card id="login" title="修改系统配置" ontimer="index.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then


		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select  * FROM admin where id=1"
		rs.open sql,cn,1,3
                if not (rs.bof and rs.eof)  then
rs("jhname")=jhname
rs("jhlogo")=jhlogo
rs("tid")=tid
rs("jb")=jb
rs("t1")=t1
rs("t2")=t2
rs("ty")=ty
rs("qb")=qb
		rs.update()
                end if
		rs.Close
		Set rs = Nothing
		%>修改系统配置成功!<br/><a href="editconjib.asp?id=<%=id%>&amp;sid=<%=sid%>">返回继续修改</a><br/><%

	else%>
		<%=errs%>
		<a href="editconjib.asp?id=<%=id%>&amp;sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 


%>
